home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / SCROLLER.int < prev    next >
Text File  |  1996-12-24  |  2KB  |  39 lines
  1. 1 REM   ************************
  2. 2 REM   *                      *
  3. 3 REM   * APPLE SCROLLING RTNE *
  4. 4 REM   *     ROGER WAGNER     *
  5. 5 REM   *                      *
  6. 6 REM   *       SCROLLER       *
  7. 7 REM   *                      *
  8. 8 REM   *  COPYRIGHT (C) 1981  *
  9. 9 REM   *    MICRO INK, INC.   *
  10. 10 REM   * CHELMSFORD, MA 01824 *
  11. 11 REM   *  ALL RIGHTS RESERVED *
  12. 12 REM   *                      *
  13. 13 REM   ************************
  14. 14 REM  
  15. 16 REM  
  16. 18 LOMEM:3072
  17. 19 PRINT "<CTRL-D>BLOAD SCROLL"
  18. 20 REM   OR SET LOMEM MANUALLY BEFORE RUNNING.
  19. 30 CALL -936:INPUT "PAGE 1 OR 2?",PAGE
  20. 40 PRINT "INPUT ADDRESS (<32767) TO START AT:":INPUT A
  21. 50 REM   TO SCROLL WITHOUT BRINGING IN NEW DATA ENTER '0' FOR ADDRESS.
  22. 60 IF A#0 THEN 100:TEXT :CALL -936: POKE 34,1:REM   FREEZE ONE BLANK LINE AT TOP OF SCREEN 
  23. 70 VTAB 12:PRINT "(SAMPLE PG. 1 SCREEN DATA)"
  24. 75  POKE 5,PAGE*4:IF PAGE=2 THEN  POKE -16299,0
  25. 80  POKE 6,0: POKE 7,4: POKE 8,0: POKE 9,4:REM   BRING NEW SCREEN DATA FROM THAT BLANK LINE
  26. 90 GOTO 150
  27. 100 LB=A MOD 256:HB=A/256
  28. 110  POKE 5,PAGE*4:IF PAGE=2 THEN  POKE -16299,0
  29. 120  POKE 8,LB: POKE 9,HB
  30. 130 FOR I=1 TO 25:CALL 768:NEXT I
  31. 140  POKE 6,LB: POKE 7,HB
  32. 150 KEY= PEEK (-16384): POKE -16368,0
  33. 160 IF KEY=149 THEN CALL 768:REM   RT. ARROW KEY TO SCROLL UP
  34. 170 IF KEY=136 THEN CALL 845:REM   LFT. ARROW KEY TO SCROLL DOWN
  35. 180 IF KEY#136 AND KEY#149 OR A#0 THEN 190: POKE 6,0: POKE 7,4: POKE 8,0: POKE 9,4:REM   RESET 6,7 & 8,9 TO POINT AT BLANK LINE
  36. 190 IF KEY#177 THEN 200: POKE 5,4: POKE -16300,0:REM   '1' FOR PAGE 1
  37. 200 IF KEY#178 THEN 210: POKE 5,8: POKE -16299,0:REM   '2' FOR PAGE 2
  38. 210 IF KEY#216 THEN 150: POKE -16300,0:TEXT :CALL -868:PRINT "BYE":END 
  39.